




0 TK 90X representa uma revolução na area 
de microcomputado'es pessoais. 

O seu baixo preço, versatilidade e facilidade em 
operá-lo garantam-lhe o primeiro lugar como o mi¬ 
cro oara adultos e crianças. 


em ou 


tros, aniquilará invasores, saltará obstáculos, verá 

„ H _ A MitA Á 


lindos desenhos sè formando ia tela e, o que c 
fundamental, após ter "participado” ativamení<E 
desta distração eletrônica, estará apto a dar va 
zão à sua criatividade, fazendo seus próprios prp 
gramas e usando e abusando da sua, até entá< 
inerte, genialidade. 
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Agora ja se tem no Brasil uma maquina real 
mente de alto nível por baixo preço - o micro pes~ 
soai TK 90X. 

Justamente por suas múltiplas qualidades 
e que apostamos no sucesso deste micro e por isso 
procuramos contribuir com este livro que contêm 20 
programas que demonstrarão a grande potencialidade 
da maquina com a qual o leitor vai lidar* 

Este livro destina-se a pessoas que ja nos 
suem um pequeno conhecimento da linguagem BASIC no 
TK 90X (alias este e o título de um livro do nosso 
pai, no qual, quem nao conhece nada de BASIC pode a*-' 
prender os primeiros eos passos seguintes...)* 

São apresentadas listagens completas devi¬ 
damente testadas de 20 programas relativos a jogos 
e gráficos. 

No caso de j ogos, destaca-se como são oscon 
troles, porem em nenhum dos programas entra-se na ex 
plicaçao da lógica dos mesmos. 

Todavia nao ê necessário muito esforço pa¬ 
ra se entender esta lógica,visto que a linguagem e 
os programas são relativamente simples. 



Foi nossa intenção instruir e principalmen 
te divertir o(a) estimado(a) futuro(a) proprietã- 
rio(a) deste livro com os programas referentes a jo 
gos e desenhos que aqui aparecem. 

Esperamos que o nosso* obj etivo seja atingi 
do e que voce .passe horas e horas alegres ao lado 
do seu "amigo" o microcomputador TK 90X. 
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Este programa vai desenhar o rosto de uma 
pessoa com o uso das instruções DRAW, CIRCLE e PLOT 
em alta resolução. Voce nao se cansara nem demorara 
para obter o maravilhoso rosto que serã exibido pe- 
lo seu TK-90X COLOR COMPUTER, o qual sorteara alea¬ 
toriamente diferentes cores do fundo da tela que 
lhe proporcionara escolher qual a cor de sua prefe¬ 
rencia. Ê claro que gosto não se discute... 

Tente fazer com que seu TK-90X COLOR COM¬ 
PUTER também sorteie aleatoriamente a cor da moldu¬ 
ra do quadro. 

(0) A instrução DRAW aparece no programa com três 

dados os quais respectivamente correspondem a abs- 

cissa, a ordenada e ao angulo especificado em radia 

nos. _ 

Para maiores informações consulte o livro 

BASIC no TK-90X o qual alem de ensinã-lo mais deta¬ 
lhadamente sobre a instrução DRAW também ensinara 
voce as instruções CLRCLE e PLOT. 


3 REM ***Face***: 


10 INK-,0: PAPER 7*RND: BORDER 0:CLS:CIRCLE 130,70,60 


15 PLOT 77,94 
30 DRAW 77,30,1 
35 DRAW 29,-25,1 
50 CIRCLE 100,80,7 
60 CIRCLE 100,80,1 
70 CIRCLE 100,80,2 
80 CIRCLE 160,80,1 
90 CIRCLE 160,80,2 
100 CIRCLE 160,80,7 
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110 PLOT 100,90:DRAW -12,-10,2:PLOT 171,80:DRAW -12,10,2 
120 PLOT 115,70:DRAW 30,10,4.3 

130 PLOT 105,44:DRAW 50,0,3:PLOT 105,44:DRAW 50,0,2 
140 PLOT 74,90:DRAW -3,-30,1.4:PLOT 187,90:DRAW 3,-30,-1.4 
150 FOR £=1 TO 30:SOUND ,018,f:NEXT f 
160 GOTO 10 





UI’A 

»« 

BRASIL 
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Agora vamos para um programa grafico que 
remonta ate ura certo patriotismo. Este programa vai 
lhe fornecer um gráfico do Brasil em baixa resolu¬ 
ção, que piscara em diversas cores, podendo voc 
colher a que mais lhe agradar. Através deste méto¬ 
do, podem-se fazer vários desenhos (gráficos) das 
mais diversas opções. 


Espero que apos ver este programa você pos 
sa desenhar seus próprios mapas. 


10 LET f=INT (RND*7+1) ( 

20 BORDER f \ 

30 LET r=INT(RND*6+l) V 

40 IF r=f THEN GOTO 30 
50 PRINT INK r ;AT 0,11; "■■■" 

60 PRINT INK r ;AT 1,8;" □BQlmQQQ » 

70 PRINT INK r;AT 2,3" 

30 PRINT INK r;AT 3,7;"" 

90 PRINT INK r;AT 4,6;"aillllll|||||||N 


100 PRINT INK r;AT 5,5; "flllllllll|||||||||g> 
110 PRINT INK r;AT 6,5; "■■■■>■■■■■■■■■■■■■■! 

120 PRINT INK r;AT 7,5; "HHaBMMMBJMaMaflBI 
130 PRINT INK r;AT 9,7; "BB1IHIHUIIIIIIIB 1 
140 PRINT INK r;AT 9,11IIIB. R ASI LIAM" 

150 PRINT INK r;AT 10,12 "■■■■■■■■■■■■ •• 

160 PRINT INK r;AT 11,-13 

170 PRINT INK r;AT 12,13 "[>■■■■■■■■■!" 

180 PRINT INK r;AT 13,13 "[IIIIsfIII" 

190 PRINT INK r;AT 14,14 "9111111" 

200 PRINT INK r;AT 15,15 "QMM" 

210 PRINT INK r ;AT 16,15 "■■■■£!» 

220 PRINT INK r ;AT 17,14 " [1BMIJ " 

230 PRINT INK r;AT 18,15 "(SM " 

240 FOR k=l TO 10:LET c=INT(RND*30+l):SOUND ,l,c:NEXT k 
250 GOTO 10 


n>>. 
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Voce sabe o que e um caleidoscopio? Por de 
finição, caleidoscopio vem a ser um cilindro opaco 
ao longo do qual estão dispostos vãrios espelhos, 
de maneira que pequenos objetos coloridos coloca¬ 
dos no tubo produzem ali desenhos variados e simé¬ 
tricos. 

Que tal construir seu proprio- caleidosco¬ 
pio? Aqui esta um programa que simula este objeto 
na tela do seu computador. Garanto que voce adorara 
os padrões formados por ele, pois não deixa a dever 
para nenhum caleidoscopio real. 

10 LET d=0 
20 LET s=22928 
30 LET %'H 
40 FOR i=l TO- 12 
50 FOR j=0 TO 1 
60 LET d=d+.03 
70 LET k=INT (127 *SIN d) 

80 POKE s+j,k 
90 POKE s-j-l,k 
100 POKE s+32-31*i+32*j,k 
110 POKE s-31*i-32*j,k 
120 POKE s-33*i+31+32*j,k 
130 POKE s~33*i-l-32*j,k 
140 POKE s-64*i+31-j,k 
150 POKE s-64*i+32+j,k 
160 NEXT j 
170 LET Jt“JUl 
180 LET s=s+32 
190 NEXT i 
200 GOTO 20 
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Aqui esta um programa para você desenvol¬ 
ver suas qualidades artísticas* Neste programa de 
desenho, voce demonstrara todo seu talento através 
das mais belas pinturas. 

Como comandos, voce tem as seguintes op— 

çoes : 

U-desenha para cima 
J-desenha para baixo 
K-desenha para direita 
H-desenha para esquerda 

Y-desenha na diagonal, para cima e esquerda 
I-desenha na diagonal, para cima e direita 
N-desenha na diagonal, para baixo e esquerda 
M-desenha na diagonal, para baixo e direita 
C-pede o valor da cor (no*+ENTER) 

7-determina cor de fundo para que possa se.apagar uma linha 
V-apaga toda tela 

Agora que voce tem todas as informações 
necessárias, divirta-se, e espero que seus desenhos 
nao deixem a dever para nenhum PORTINARI 1 . 

10 LET p=0 

20 LET x=130:LET y=100 
30 IF x > = 255 THEN LET x = 255 
40 IF x < = 1 THEN LET x=l 
50 IF y > = 175 THEN LET y = 175 
60 IF y < - l THEN LET y = 1 
70 PLOT INK p;x,y 
80 LET t$ = INKEY$ 

90 TF t$ - "h" THEN LET x * x-1 




100 XF t$ = "k" THEN LET x = x+1 

110 .IF t$ = "u" THEN LET y = y+1 

120 IF t$ ="j"' THEN LET y = y-1 

130 IF t$ = "n" THEN LET x - x-1: LET y 

140 IF t$ = V THEN LET x = x+1: LET y 

150 IF t$ = "y" THEN LET x = x-1: LET y 

160 IF t$ = "i" THEN LET x = x+1: LET y 

170 IF t$ = " c " THEN INPUT p 

180 IF t$ = "7" THEN LET p = 7 

190 IF t$ = "v" THEN CLS 

200 GOTO 30 
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Este e um programa no qual mostramos a uti 
lidade da instrução BIN (voce poderá obter informa¬ 
ções mais profundas no livro BASIC no T.K-90X) com a 
qual definimos vários caracteres. Nos definimos- . o 
homem que ira se movimentar em 14 letras divididas 
da seguinte maneira: 3 letras definem* a cabeça, 1 
letra define a cabeça para d irei ta, outra para 'es¬ 
querda e a outra no meio. As pernas possuem 5 le¬ 
tras definidas com a instrução BIN duas são para de 
finir posiçoes diferentes para a esquerda,.uma defi 
ne a posição central e as outras duas sao posiçoes di 
ferentes para a direita. Os braços possuem 6 letras 
que definem dois tipos de posição para esquerda, 
dois tipos de posição para direita e dois tipos de 
posição na qual os braços estão voltados para fren 
te. No programa podemos averiguar na linha 10 que 
a letra r varia de 1 a 14 isso significa que o pro¬ 
grama entrara em um loop que rodara 14 vezes para 
poder definir as 14 letras com a instrução BIN e com 
o auxilio das instruções DATA e READ. Este progra¬ 
ma e uma animaçao em que voce controlara o homem pa 
ra esquerda com a tecla 3, para a direita com a te 
cia 8 e se voce nao apertar nenhuma tecla ele fica 
observando, mexendo as maos . 

(o BSToda vez que uma letra estiver entre colche- 
tes deve ser escrita em modo grafico, 

* 
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1 PAPER 6:BOEDER 1:INK 0 
10 FOR r=l TO 14 
20 READ a$ 

30 FOR s=0 TO 7 
40 READ e 

50 POKE ÜSR a$+s,e 
60 NEXT s 
70 NEXT r 

80 DATA "E", BIN 00111100, BIN 01000010, BIN 01011010, 

BIN 10000001, BIN 10100101, BIN 01011010, BIN 01000010, 
BIN 00100100 

90 DATA "F", BIN 00100110, BIN 00011001, BIN 00100001, 

BIN 01011001, BIN 11000001, BIN 00100010, BIN 00100100, 
BIN 00011000 

100 DATA "G", BIN 01100100, BIN 10011000, BIN 10000100, 

BIN 10011010, BIN 10000011, BIN 01000100, BIN 00100100, 
BIN 00011000 

110 DATA "H", BIN 00011000, BIN 00111100, BIN 01011010, 

BIN 11011011, BIN 10011001, BIN 10011001, BIN 10011001, 
BIN 11011011 

120 DATA "I", BIN 00011000, BIN 00111100, BIN 01011010, 

BIN 01011010, BIN 10011001, BIN 01011010, BIN 00111100, 
BIN 00011000 

130 DATA "J", BIN 00000000, BIN 00011000, BIN 00100100, 

BIN 00100100, BIN 01000010, BIN 01000010, BIN 01000010, 

BIN 11000011 

140 DATA "L”, BIN 00011000, BIN 00011000, BIN 10011000, 

BIN 01010100, BIN 00100010, BIN 00100010, BIN 00000001, 
BIN 00000001 

145 DATA "M", BIN 00011000, BIN 00010000, BIN 00011001, 

BIN 00101010, BIN 01000100, BIN 01000100, BIN 01000000, 

BIN 01000000 


150 DATA "N", BIN 00100000, BIN 00110000, BIN 00101000, 

BIN 01000100, BIN 01000100, BIN 01000100, BIN 01000100 
BIN 00000000 

160 DATA "0", BIN 00000100, BIN 00001100, BIN 00010100, 

BIN 00100010, BIN 00100010, BIN 00010001, BIN 00100011, 

BIN 00000000 

170 DATA "P", BIN 00011000, BIN 11011000, BIN 10110000, 

BIN 10110000, BIN 10111000, BIN 00100100, BIN 01100010, 

BIN 00100000 

180 DATA "Q", BIN 00011000, BIN 01111000, BIN 10010000, 

BIN 10110010, BIN 01110100, BIN 00101000, BIN 01100000, 

BIN 00100000 

190 DATA "R", BIN 00011000, BIN 00011011, BIN 00001001, 

BIN 00001101, BIN 00011101, BIN 00100100, BIN 01000110, 

BIN 00000100 

200 DATA "S", BIN 00011000, BIN 00011110, BIN 00001001, 

BIN 01001101, BIN 00101110, BIN 00010Í00, BIN 00000110, 

BIN 00000100 
210 LET c=15 
220 GOSUB 300 

230 PRINT AT 11,c; " AT 12,c; "□[l]O n ; AT 13,c; "D[ÍlD" 

240 SOUND .3,4 

250 PRINT AT 11,c; "apõe; AT 12,c; "□[HjD 11 : SOUND .3,5 
260 PRINT AT 11 ,'C; "0 [e]D"; AT 12,c; "n[l]p”; AT 13,c; 

270 PRINT AT 11,c; "□[g]D”; AT 12,a; "□[«]□” 

280 SOUND .3,5 
290 GOTO 220 

300 LET a$ = INKEY$: PRINT AT 0,c-l 
310 IF a$ = "5" THEN LET c = c-1: GOTO 340: GOTO 300 
320 IF a$ = "8" THE LET c = c+1: GOTO 340: GOTO 300 
330 RETURN 

340 IF c< 0 THEN LET c = 29: PRINT AT 11,0; ’tf; AT 12,0;'CJ'; 

AT 13,0;"d" 




22 


350 PRINT AT 11,c; AT 12,c; 

355 SOUND .01,10 

360 PRINT AT 11, c; "Q[o]n" 

370 SOUND .018,5 
380 RETURN 


"D[R]n"; AT 13 


c * 

I 




400 IF c > 29 THEN 1ET c = 0 


410 PRINT AT 11,c; 
415 SOUND .01,5 
420 PRINT AT 11,c; 
430 SOUND .018,5 
440 RETURN 


"□[Gja"; AT-12,0; "n[p]0"; AT 13,o 
"□[G]D"; AT 12, C[ "□[Qja"; AT 13, c; "□[n]o" 



OBS.: Se voce quiser desenhar uma forma humanSide veja 

abaixo como pode conseguir isto com o auxílio 
dos cõdigos BIN, 



Códigos Bin 
00011000 
00011000 
01111110 
01011010 
00011000 
00011000 
00111100 
00100100 
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0 título desse joguinho parece meio estra¬ 
nho, más não e* Glub e o nome que inventamos para 
um monstrinho que vive "enrustido". 0 glubirianí- 
ta. vive: em cavernas e nao pode se expor a luz so¬ 
lar* 0 problema e que o seu habitat foi invadido 
por blublurianitas que.estão tentando capturã-lo, 
o que ocasionara sua morte certa pois querem fazer 
experiências com a espécie tão rara. Tente orien¬ 
tar o caminho do seu glubirianita de maneira que 
ele consiga escapar permanecendo dentro de sua ca¬ 
verna o maior tempo possível. Porém existe um sério 
problema, quando o seu glubirianita esta apavorado 
ele desprende uma substancia mortal que voce pode 
identificar facilmente através do rastro deixado, 
logo voce'jã deve ter concluído que nao poderã pas¬ 
sar por cima desse rastro. 



Toda vez que aparecer uma letra entre colche¬ 
tes (no caso desse programa a~ letr a E3) deve ser 
escrita em modo grafico . 

Note que este jâ S o segundo aviso 

10 REM GLUB 
20 PAPER 6: BOEDER 1 
30 FOR y=l TO 7: READ tn 
40 POKE USR" [E] "+y,m 

50 DATA 60,126,219,219,255,255,102,0 : NEXT y 
60 LET p$ = "P[EEE]Q" 

70 LET d=l : LET z=3 
80 REM INTRODUÇÃO 

90 PRINT TAB 8; INK 2;"G □□□"; :PAUSE 10: PRINT 1NK 3;”L 
□ □□ PAUSE 10: PRINT INK 2; "UDDD PAUSE 10: 

PRINT INK 2; "B" 
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100 INPUT "Velocidade (0-10):0 S a mais rápida□";v 

110 PRINT INK 4; PAPER 1; FLASH 1; AT 10,0;"DBoa sorte" 

120 PAUSE 300: CLS 

130 INK 2: PLOT 248,168': DRAW -241,0: DRAW 0,-161: DRAW 241,0: 
DRAW 0,160 

140 LET q=ll: LET w=16: LET q$=STR$(INT(RND*4)+5) 

150 PRINT INK 0; AT 0,20;p$ 

160 PRINT INK 2; AT q,w; "[e]" 


170 FOR x=l TO v*2: NEXT x 

130 IF INKEYÍ <> "" THEN LET q$=INKEY$ 

190 PRINT INK 3;AT q,w;'#" 

200 LET q=q+(q$=”6")-(q$="7") 

210 LET w=w+(q$ = "8")-(q$ = "5")| 

220 IF q=21 OR q=0 THEN LET q=ABS(q-20) 

230 IF w=31 OR w= 0 THEN LET w=ABS(w-30) 

240 SOUND .0018,RND*20 

250 LET d=d+l: PRINT INK 1;PAPER 4;FLASH 1; 
260 IF SCREEN$(q,w)="#" THEN GOTO 280 
270 GOTO 100 





AT 0,0;"TEMPO d 


280 CLS: PRINT PAPER 1; INK 7; FLASH 1; AT 11,0;":!I ll M l ]]!I! 

bang::::::::::::::;" 


290 LET z=z-l 


300 IF z=0 THEN GOTO 350 

310 LET p$="": FOR i=l TO z:LET p$=p$+”[E]": NEXT i 
320 INK 2: PRINT AT "Sõ restam z;"D gLUBS" 

330 PRINT "PREPARE-SE" 

340 GOTO 120 

350 INK 3:PRINT AT_ 13,3; FLASH 1; "ACABOU" Voce fezD";d; 
"Q PONTOS" 

360 INPUT "Jogar de novo";d$ 

370 IF d$="s" THEN RUN 
380 STOP 
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Voce ja sentiu a emoção de penetrar numa 
mina de brilhantes e garimpar os diamantes? Se nao, 
agora voce tera esta chance. Neste programa, você 
se localiza dentro de uma mina de diamantes e ou- 
tras pedras de menor valor, e seguramente voce quer 
enriquecer. Então, no menor espaço de tempo, sua 
missão ê colher o maior numero de diamantes possí¬ 
vel. Para isto, basta voce passar por cima das pe¬ 
dras que estão piscando por toda parte da tela. Mas 
cuidado, cada vez que voce passar por cima de um 
cristal que nao esta piscando, você deixara cair um 
diamante. 

A sua contagem aparecera ao final de um 
certo intervalo de tempo. Esta e sua chance de se 
tornar multimilionário. Boa sorte! 


CONTROLES 
A. move para cima 
Z. move para baixo 

M. move para a direita 

N. move para a esquerda 



e Na linha 130, deve-se pressionar o 
modo grafico antes de se teclar a 
letra a,para se obter o caracter 
formado. Esta ê uma outra simbologia... 


10 LET a=0: LET t=ll: LET h-16: LET i=l 
20 FOR y=0 TO 31 
30 FOR c=0 TO 20 
40 LET f=INT(RND*6+l) 

50 IF f >3 THEN BRIGHT 1: FLASH 1: LET i=i+l: GOTO 70 
60 BRIGHT 0: FLASH 0 
70 PRINT INK ,f; AT c,y; M B" 

80 NEXT c: NEXT y 
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90 FOR p=0 TO 7: READ d: POKE USR ”a"+p,d: NEXT p 
100 FOR v=l TO 250 

110 IF ATTR (t,h) >= 128 THEN LET a=a+l: GOTO 130 
120 LET a=a-l 

130 PRINT FLASH 0: AT t,h;"a" 

140 LET tl=t: LET hl=h 
150 LET t$= INKEY$ 

160 IF t$="a" THEN LET t=t-l: PRINT FLASH 0; INK 0; AT 
t+l,h;'V 

170 IF t$="z" THEN LET t=t+l: PRINT FLASH 0; INK 0; AT 
t-l,h;"«" 

180 IF THEN LET h=h+l: PRINT FLASH 0; INK 0; AT 

t,h-l;"B" 

190 IF t$="n" THEN LET h-h-1: PRINT FLASH 0; INK 0; AT 
t,h+l;'W 

200 IF t >= 20 THEN LET t = 20 
210 IF t< = 0 THEN LET t=0 
220 IF h > = 31 THEN LET h=31 
230 IF h< = 0 THEN LET h=0 
240 IF t=tl AND h=hl THEN LET v=v+l: IF v >=250 THEN GOTO 280 
250 IF t=tl AND h=hl THEN GOTO 150 
260 SOÜND .05,1 
270 NEXT v 

280 CLS: PRINT "voce fezO ";a;"D pontos'* 

290 PRINT "mais um jogo?": INPUT nt:IF n$="s" THEN RUN 
300 DATÃbIN 00011000, BIN 00111100, BIN 00011000, 

BIN 11111000, BIN 00011000, BIN 00100100, BIN 01000010, 
BIN 10000001 
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Que tal agora experimentar um voo em meio 
a um perigoso labirinto? Neste programa, voce se 
transformara em um piloto experimentado,.que tera 
que conduzir suanave por um labirinto de rochedos* 
Ao menor toque nos rochedos, voce explodira, levan¬ 
do consigo a tripulação inteira dè sua - missão. 

Nervos de aço e muita habi 1idade!Tente pas 
sar pelos rochedos! 

OBS.y Nas linhas 50,300 e 330, deve-se pressionar o 
mo cío grafico antes da letra u, para se obter o ca¬ 
racter formado. 

CONTROLES: 

{ D. Move a nave para a esquerda 
S. move a nave para a direita 



10 PAPER 3: BORDER 3 

20 RESTORE: LET x=20: LET y=l6: LET g=20; LET p=12 
30 DIM u(21): DIM a$(22,4): DIM b$(21,4) 

40 FOR c=0 TO 7: READ d:POKE USR "u"+c,d: NEXT c 
50 PRINT AT x,y;"u" 

60 LET i=l 

70 IF i >- 20 THEN GOTO 210 
80 LET z-INT(RND*100+l) 

90 IF z < 25 THEN LET a$(!)=”■■■*':LET b$(i)-" ■ M :LET u(í)-5 
100 IF z>= 25 AND z < 50 THEN LET a$(i)*'*»! 1 ':LET b$(i)="B*": 
LET u(i)= s 4 

110 IF z > — 50 AND z < 75 THEN LET a$(i)= ft M ":LET b$(iHUM”: 
LET u(i)=3 

120 IF z >= 75 AND z< - 100. THEN LET a$(i)= Tt, l M :LET b$(i)= T %i 
■ LET u(i) = 2 

130 IF i*l THEN LET LET b$ (!)="■■*’: LET u(i)=3 

140 IF i >1 AND u(i)=5 OR u(i)=2 THEN GOSUB 180 
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150 PRINT AT g,p;a$(i);AT g',p+u(i)+2;b$(Í) 

160 LET i=i+l: LET g=g-l 

170 GOTO 70 

180 IF u(i)=5 AND u(i-l)=2 THEN LET a$(i)="H": LET b$(i)="B 
BSD": LET u(i)=2: RETÜRN 

190 IF u(i)=2 AND u(i-l)=5 THEN LET a$(i)="MM": LET 
b$(i)="■ ": LET u(i)=5: RETURN 
200 GOTO 150 
210 LET i=l 

220 FOR t=l TO 20 
•230 IF y < =p+u(i)-2 THEN GOTO 

235 IF y >=p+u(.i)+2 THEN GOTO 
240 LET i=i+l 
250 LET t$=INKEY$ 

260 IF t$="d" THEN LET y=y+l: 

270 IF t$=”s" THEN LET y=y-l; 

280 GOTO 310 
290 IF y=p+u(i)-2 THEN GOTO 400 
300 PRINT AT x,y;"u" ;AT x+1,y-l: GOTO 350 
310 GOTO 340 

320 IF y=p+u(i)-2 THEN GOTO 400 
330 PRINT AT x,y;"u"; AT x+l,y+l;"0" 

340 IF t$="” THEN PRINT AT x,y;"u"; AT x+l,y; 

350 LET x=x—1 

360 PAUSE 20 

370 SOUND .019,10 . 

380 IF x<=l THEN GOTO 440 
390 NEXT t 

•400 CLS: SOUND .3,10: SOUND .3,15: SOUND .3,20: PRINT INK 4; 

"voce bateu": PRINT "unais um jogo?" 

410 INPUT s$: IF s$="s" THEN RUN 
420 STOP 

430 DATA BIN 00001000, BIN 00001000, BIN 00001000, 

BIN 00001000, BIN 00011100, BIN 00111110, BIN 01101011, 
.BIN 11001001 


400 

400 


GOTO 290 
GOTO 320 



440 CLS 

450 SOUND .3,40: SOUND .3,35: SOUND .3,30: PRINT INK 4; 
"parabéns, voce passou" 

460 PRINT "mais um jogo?": INPUT s$; IF s$="s" THEN RUN 
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Em meio a uma viagem espacial, você se de¬ 
para com.um grave perigo: sua nave acaba-de pene¬ 
trar uma nuvem de asteroides, uma colisão serã fa¬ 
tal e você tem que conduzi-la com muita destreza pa 
ra que possa ultrapassar este cinturão de perigo 
com vida. 

Muito cuidado, pois poucos conseguiram es¬ 
ta façanha. Em último caso, BOA SORTE. 


CONTROLES : 

( R. move a nave para cima 
F. move a nave para baixo 


5 LET 1=1 


20 DXM a (255) 

30 FOR u=l TO 255 

40 LET a ( i ) =INT(RND* 17 5+1) 

50 PLOT INK 0;u,a(i) 

■60 LET i=i+l Ms ~f- 
70 NEXT u 
80 LET g=90 
90 LET i=l 


100 FOR c=l TO 255 / 

110 PLOT INK 2;"c,g 
120 IF g=a(i) THEN GOTO 200 
■130 LET i=i+l 


140 LET t$=INKEY$ 


150 IF t$=”r" THEN LET g=g+l 
160 IF t$="f" THEN LET g=g-T 
170 NEXT c 



180 'PRINT INK 4; "parabéns, você passou" 
190 GOTO 210 



200 PRINT INK 3; "bum, voce bateu” 

210..PRINT INK 4; "novo jogo?" : INPUT t$: IF t$="s" 
THEN RUN 
220 STOP 
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Sua cidade esta sendo amendrontada por um 
terrível bandido espacial com nome de SPILY DE BLIT. 
Como xerife de sua cidade o seu dever e desafiar 
SPILY DE BLIT para um duelo de vida ou morte. Este 
jogo e para duas pessoas. Uma comandara SPILY DE 
BLIT e a outra comandara o xerife. Se acha que co¬ 
mandando o bandido terâ mais chances esta enganado 
porque o seu TK-90X COLOR COMPUTER nao definiu quem 
e o bandoleiro e quem ê o xerife* por isso nao ha— 
verã desvantagens entre os competidores, certo!!!!. 
As teclas que comandarão uma das naves interplanetã 
rias serão Z para a esquerda, C para a direita e X 
que dispara o poderoso tiro de uma bala de prata. A 
outra nave sera comandada com as teclas M para a di 
reita, B para a esquerda e a tecla N dispara sua pon¬ 
derosa bala de prata. Como sempre existe um proble¬ 
ma, se duas teclas forem pressionadas ao mesmo tem¬ 
po, o computador so atendera o comando da primeira 
a ser apertada, então não deixe a tecla muito tempo 
apertada, a nao ser que voce queira trapacear* Voce 
poderá escolher o nome do comandante da sua nave(vo 

T*- 

ce e claro!). Use sua imaginação para os mais belos 
e sugestivos nomes. Este jogo lhe proporcionará mui 
ta emoção porque al£m de ser para dois participan¬ 
tes ele possui som e e muito colorido e divertido. 

^B^^Nào se esqueça que toda letra que estiver en¬ 
tre colchetes deve ser.escrita em modo grafico. 

Agora prepare sua nave para o duelo e come 
ce a digitar o programa!!!!! 
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10 PAPER 2: BORDER 1 
20 LET c=l: LET z=15 
30 LET x=21: LET y=16 
40 FOR q=0 TO 7 
50 READ w 

60 POKE USR ”U"+q, w: NEXT q 
70 DATA BIN 00011000, BIN 00011000, BIN 00111100, 

BIN 01011010, BIN 10111101, BIN 10111101, BIN 10111101, 

BIN 00000000 

80 FOR q=0 TO 7: READ s:POKE USR "e"+q,s:NEXT q 
90 DATA BIN 00111100, BIN 01111110, BIN 11111111, 

BIN 11000011, BIN 01100110, BIN 01100110, BIN 01100110, 

BIN 01100110 

100 DIM h.$(2,9): FOR i-1 TO 2: INPUT "Qual o seu nome?"; 
hÇ(i);: NEXT i 

110 INK 6: LET a$="D[u]a": PRINT AT x,y';a$ 

120 INK 4: LET d$="D(X]D": PRINT AT c,z;d$: INK 0 
130 LET s$=INKEY$ 

140 IF s$=”z" THEN LET y=y-l 
150 IF s$="c" THEN LET y=y+l 
160 IF s$="x" THEN GOTO 250 
170 IF y < = 1 THEN LET y=l 
180 IF y»30 THEN LET y=29 
190 IS sf= "m" THEN LET z = z+1 
200 IF s$ = "n" THEN GOTO 315 
210 IF s$ = "b" THEN LET z = z-1 
220 IF z = 30 THEN LET z = 29 
230 IF z < = 1 THEN LET z = 1 
240 GOTO 110 
250 SOUND .0018,-5 
260 FOR v=x TO 0 STEP -1 
270 PRINT INK 1; PAPER 1; FLASH 1; AT v,y+l;"#": SOUND .0018 
280 PRINT AT v,y+l; "O" 

290 NEXT v ’ 


300 IF zoy AND-voe THEN GOTO 130 
305 FOR k=0 TO 15: SOUND .0018,k: NEXT k 

310 PRINT FLASH 1; AT 10,0;h$(1)VENCEU 0 DUELO": GOTO 360 

315 SOUND .002,-12 

320 LET w=c: FOR w=c TO 20 

330 PRINT INK 0; PAPER 2; AT w+1, z+1; AT w+l,z+l;"D" 

: SOUND .0018,w 
340 NEXT w 

345 IF w=x AND z=y THEN FOR k=15 TO 0 STEP t 1; SOUND .0013 k: 
NEXT K: PRINT FLASH 1; AT 10,10;h$(2); " VENCEU O 
DUELO!GOTO 360 

350 GOTO 130 

360 INPUT "Quer jogar novamente";f$ 

370 IF f$="s" THEN RUN 

380 CLS 

385 BORDER 7 

390 PAPER 7 

400 INK 0 

410 STOP 





nqpApTAT 

DUÍnUlnL 
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Voce esta perdido num beco espacial, pro¬ 
curando por ajuda, porem nao sabe o que lhe aguarda 
no final deste beco, Para lhe adiantar, posso dizer 
que no fundo mora uma família de 5 monstros que es¬ 
tão sempre com fome. Ao primeiro sinal de vida em 
sua região, eles tentarao devora-lo. Todavia, voce 
esta munido de uma arma laser para se defender. Seu 
objetivo e destruir os 5 monstros antes que eles 
cheguem perto demais. 


para cima 
para baixo 

OBS.:)nas linhas 210 e 220, pressionar o modo grãfi 
^ co para as teclas a e b, obtendo-se os carac 

teres gráficos formados. 



10 LET r=0 

20 PAPER 0: BORDER 3 

30 RESTORE: LET g»ll: LET p=0: LET x<Ll: LET y*=31 
40 PRINT INK 4; AT l,l;r 
50 FOR d=0 TO 7 
60 READ c 

70 POKE USR %í a"+d 9 c 
80 NEXT d 
-/90 FOR â-0 TO 7 
100 READ c 

110 POKE USR ”b H +d,c 
120 NEXT d 

130 IF p>» y THEN GOTO 390 
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140 LET h = INT(RND*15+1) 

150 XF h >= 7 THEN LET g » g+1 
160 IF h < 7 THEN LET g = g-1 
170 XF g<= 1 THEN LET g = 1 
180 IF g > = 19 THEN LET g = 19 
190 IF x > = 19 THEN LET x = 19 
200 IF x< = 1 THEN LET x = 1 
210 PRINT INK 2; AT g,p;"a";AT g+1,p;"DO";AT g-l,p-l;"OD"; 
AT g,p-l;"DQ" 

220 PRINT INK 1; AT x,y; "b"; AT x-l,y;"0"; AT x+l,y;"D" 
230 LET- t$ = INKEY$ 

240 IF t$="a" THEN LET.x = x-1 
250 IF t$*"z" THEN LET x = x+1 
260 IF t$="£" THEN GOTO 290 
270 LET p*p+l 
280 GOTO 130 

290 FOR j=y TO p STEP -1 

295 PRINT INK 2, AT g,p;"a"; INK 1; AT x,y;"b" 

300 PRINT INK 6; AT x,j;"-D" 

310 SOUND ,019,1 
320 NEXT j 

330 PRINT AT x, j ;"□□□ "; AT x,y;" □" 

340 PRINT AT g,p;"DDD" 

350 IF g=x THEN SOUND .1,10: GOTO 470 
360 GOTO 130 

370 DATA BIN 00111100, BIN 01111110, BIN 11101011, BIN 
11111111, BIN 11111111, BIN 11000011, BIN 11111111, 

BIN 11111111 

380 DATA BIN 00011000, BIN 00111100, BIN 00011000, BIN 
11111000, BIN 00011000, BIN 00100100, BIN 01000010, 

BIN 10000001 

390 IF g > x THEN LET i = -1 
400 IF THEN LET i “ 1 

410 FOR t = g TO x STEP i 


420 PRINT INK 7; AT t,y; "a" 

430 NEXT t 

440 SOUND .3,15: SOUND .3,10: SOUND .3,5 
450 PRINT INK 7; "o monstro te pegou" 

460 STOP 

470 LET r = r+1: IF r = 5 THEN GOTO 490 
480 GOTO 30 

490 SOUND .3,5: SOUND .3,10: SOUND .3,15 

500 PRINT INK 7; "parabéns, voce acabou com os monstros": 

PRINT INK 6; AT 1,1;"5" 

510 STOP 



■>xn< 
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Você foi atacado por outra galaxia,que des 
truiu o seu planeta alem de ter matado sua esposa. 
Agora vingue-se, matando o mãximo possível de inva¬ 
sores desta galaxia. Você so tem vinte mísseis'para 
atacã-los. A tecla 8 move sua nave para direita, a 
tecla 5 move sua nave para esquerda -a tecla 0 dis 
para o seu poderoso míssil. 

( oBS^ ) Toda vez que as letras estiverem entre colche 
tes devem ser escritas em modo grafico. Para obter 
os caracteres da linha 340 deve-se pressionar CAPS 
SHIFT 9,6,6,6,6 e 9. 

10 FOR r=l TO 4: READ q$ 

20 FOR e=0 TO 7 
30 READ w 

40 POKE USR q$+e,w 
50 NEXT e 
60 NEXT r 

70 DATA ”R", BIN 10000000, BIN 11000000, BIN 11100000, BIN 

11110000, BIN 11111110, BIN 11111111, BIN 11111111, BIN 

11111111 

80!DATA "Q", BIN 00000000, BIN 00000000, BIN 0111000, BIN 
11111110, BIN 11111110, BIN 11111111, BIN 11111111, BIN 
11111111 

90 DATA "I”, BIN 00000000, BIN 00000000, BIN 00000000, BIN 

00000000, BIN 00000000, BIN 11100000, BIN 11111100, BIN 

11111111 

100 DATA "0", BIN 0001000, BIN 0001000, BIN 0011100, BIN 
1011101, BIN 1011101, BIN 1011101, BIN 01111111, BIN 
01111111 

110 BORDER 1: INK 0: PAPER 5: LET y=0: LET t=0 
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120 LET A$="D[RQi]d" 

130 LET avião = 0 

140 LET arma = 16: LET e$ = "□[o]d" 

150 PRINT INK 1; AT 21, arma; e$ 

160 PRINT INK 1; AT 2, avião; a$ 

165 LET m$ = INKEY$ 

170 PRINT AT 0,1; "TIROS t; AT 0,15;' "ACERTOS□ ";y 
175 IF t=20 THEN GOTO 380 
180 LET avião = aviao+1 

190 IF avião=26 THEN PRINT AT 2, ‘avião;"00□ LET avião = 0 

200 IF m$ = "" THEN GOTO 160 

210 IF m$ = "5" THEN LET arma=arma-I: GOTO 150 

220 IF m$ = "8" THEN LET arma=arma+l: GOTO 150 

230 IF m$ <> "0" THEN GOTO 150 

240 LET t = t+1 

250 FOR l = 20 TO 1 STÈP -1 

260 PRINT INK 1; AT 2, avião; a$ 

270 IF SCREEN$ («,,arma+l) <> "□" THEN LET y=y+l: GOTO 330 
280 PRINT AT í.,arma+l;"+ " 

290 LET aviao=aviao+l 

300 IF avião >26 THEN PRINT AT 2, avião; "□□0": LET avião=0 
310 PRINT AT S.,arma+1;"0" 

320 NEXT l 
325 GOTO 150 

330 REM Aqui indica -se a explosão 

340 PRINT INK 5; PAPER 4; AT 2, avião; FLASH 1;"B|MB!" 

350 FOR z=l TO 20: SOUND .013,2: NEXT z 

360 CLS 

370 GOTO 120 

380 PRINT INK 3; AT 10,1; "DE 0";t;"0 tiros vocS acertouC]";y 
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Este jogo ê muito fácil para os que tem um 
pouco de habilidade, porem se a pessoa for nervosa 
e atrapalhada batera varias vezes. No programa voc 
esta dirigindo um super carro, uma FERRARI 365 GTB 
vermelha, de 12 cilindros e o seu objetivo sera de 
viar dos carros que voce : rapidamente vai deixand 
os para atras. Voce deve permanecer ultrapassando 
os inúteis carros durante um certo tempo sem cho¬ 
car-se com nenhum deles. Nunca aparecerão mais de 
dois’ carros ao mesmo tempo na tela por isso este 
jogo nao e muito difícil. Voce poderã se divertir 
bastante e dar umas boas gargalhadas das batidas de 
seus companheiros ou ate de seus pais. 

U)BS.y Na linha 55 a letra [t] esta entre colchetes e 
isso significa que ela deve ser escrita em modo gra 
fico. Na linha 65 os caracteres são obtidos aper- 
tando a tecla- CAPS SHIFT e 9,6,9. 

Faça de conta que voce já esta dirigindo a 
FERRARI e digite o programa o mais .rápido possível! 

1 BOEDER ls PAPER 6 

10 LET X=15: LET Y=14: LET V=0: LET K=0 

20 FOR Q=0 TO 7 

30 READ S 

40 POKE USR "T”+Q,S 

50 DATA BIN 00111100, BIN 11111111, BIN 01111111, BIN 

01111110, BIN 11111111, BIN 11111111, BIN 00111100, BIN 

00000000 

55 LET A$ = "D[t] 0": LET H$ = "0[T]n’’ 

60 NEXT Q 



IO t« » ' <t>> 
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65 FOR J=1 TO 21: PRINT AT J,13;"HnODODaQOQaBB”: RÈM ENTRE 
OS CARACTERES GRÃFICO TEM 10 ESPAÇOS BRANCOS: NEXT J- 
70 LET F=14+IN.T(RND*5) 

75 FOR U=1 TO 18 
80 PRINT INK 2; AT X,Y;A$ 

90 LET U$=INKEY$ 

100 IF u$="g" THEN LET y=y+l 
105 LET k=k+l: IF K=400 THEN GOTO 170 
110 IF U$="£" THEN LET Y=Y-1 
115 PRINT INK 4; AT U,F;H$;AT U+3,F+3;H$ 

120 IF Y >= 20 THEN LET Y = 20 
125 PRINT AT 1,1; V; "Q Batida (s)" 

130 IF Y< = 14 THEN LET Y = 14 
135 IF Ü=X AND F=Y THEN LET v=v+l: SOUND .01,-1 
140 IF. U+3=X AND F+3=Y THEN LET V=V+1:. SOUND .01,10 
145 PRINT AT U-l, F+l; "Q"; AT U+2, F+4; 

150 NEXT U 

155 PRINT AT 18,15;"DOOIUDOD "; AT 21,15; 'tlODOPOOO " 

160 GOTO 70 

170 CLS: PRINT "Você bateuQ";v;" □vez(es)D ";"OeraD";K;"D 
segundos" 

180 INPUT "Quer jogar novamente?"; K$ 

190 IF K5í ="s" THEN RUN 
200 STOP 


PROGRAMA 14 




RALLYE 
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Agora, teste sua habilidade num rallye emo 
cionante. Voce e o condutor de um gurgel verde, que 
tem que atravessar uma pista muito acidentada (ver¬ 
melha), de limites- azuis. Para isto, ê necessária 
muita perícia, muita destreza. 0 seu carro pode an¬ 
dar em duas velocidades: - uma lenta,* caso voce nao 
esteja apertando tecla nenhuma, e outra mais rapi- 
da, se voce desejar uma travessia mais perigosa, 
quando voce mantiver alguma tecla apertada. 

0 programa fornece sua pontuação e guarda 
as pontuações mais altas. Boa sorte! 

CONTROLES: 

( M. direita 
B. esquerda 

Q BSj ) Qualqner tecla pressionada aumenta a velocida 
de do carrinho. Os caracteres gráficos da linha 110 
obtem-se apertando as teclas o e p nos' modos grafi 
cos . 

2 FOR t=0 TO 7: READ a,b 
3 POKE USR "p"+t,a: POKE USR "o ,, +t,b 
4 NEXT t 

5 DATA 170,255,85,255,170,60,85,60 
6 DATA 170,60,87,60,170,255,85,255 
7 LET c$="bum H 
8 DIM c$(10) 

10 LET h=0 
20 LET s=0 

25 LET x=5:LET a=3:CLS 
30 FOR n=0 TO 20 

40 PRINT TAB a; INK INK 2; "UÉ”; INK 
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50 LET a=a+(a< 7 AND a)*SGN(RND-.'5)+(N0T a)-(a=7) 

60 NEXT n 
70 LET a=x 
80 POR n=l TO 20 
90 LET p=ATTR(n,x) 

110 PRINT AT n-l,a;INK 2;"o";AT n,x;INK 4;"p" 

120 IF p=57 THEN GOTO 170 
130 LET a=x 

140 IF INKEY$="m" THEN LET x=x+l 

143 IF INKEY$="b" THEN LET x=x-l 

144 SOUND .019,1 

145 PAUSE 20 
150 NEXT n 

160 LET s=s+n: GOTO 25 
170 LET s=s+n 

175 FOR a=l TO 10: BORDER MD*7: SOUND .l,a-10 
180 PRINT AT 2,10+a;INK RND*5;c$(a) 

183 NEXT a 

185 PRINT AT 4,ll;"pontuação:D’’;s 
190 IF h<s THEN LET h=s 
200 PRINT AT 6,11;INK 1;FLASH 1;” maior pontuação:"; h 

210 INPUT "outro jogo?";a$ 

230 IF a$="s" THEN GOTO 20 
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A ultima prova do campeonato mundial de 
formula I esta para começar* So ha dois corredores, 
voce e seu oponente* Como voce sabe, nas corridas 
de formula I ha muita emoção, muitas dificu 1 dad*es 
e para que seu carro ande voce deve resolver um pe¬ 
queno problema que consiste em calcular quantos me¬ 
tros o mesmo percorrera uma vez que a velocidade (em 
km/h) e o tempo (em segundos) serão aleatoriamente 
exibidos pelo seu TK 9^Sx Color Compute r * Quanto mais 
proximo for a sua resposta do verdadeiro valor mais 
o seu carro andaraí!!!, Para que voce não se de mal 
aqui vai uma dica: se o seu carro estiver a 72 kim/h 
durante 4 seg, ele percorrera a distancia de 80 m. 

Na linha 100 a letra [A] deve ser es¬ 
crita em modo grafico de maneira que para escreve- 
la deve-se pressionar a tecla CAPS SHIFT 9, A,9. 

Esta ê a terceira observação sobre a sirabo 

logia . 

Agora engate a quarta marcha e comece di¬ 
gitar o programa abaixo. 

1 PAPER 1 

2 BORDER 2 
10 REM Corrida 
30 RAND 

40 DIM h$(2,9) 

50 DIM m(2) 

80 FOR m=0 TO 15 
90 READ f 

100 POKE USR "A' , +m,f 
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110 NEXT m 

120 DATA 0,102,255,255,255,102,0,0 
130 DATA 204,204,51,51,204,204,51,51 

140 PRINT PAPER 3; INK 9; AT 6,2; "Qual e o seu nome?" 

160 INPUT h$(l) 

170 PRINT PAPER 3; INK 9; AT 10,0;"Você tem o carro roxo" 

190 INPUT "Qual e o seu nome?";h$(2) 

200 PRINT PAPER 6; INK 9; AT 15,0;h$(2);", tem o carro amare¬ 
lo" 

220 PAUSE 99: CLS 
240 FOR 0=0 TO 31 
250 PRINT INK 2; AT 6,o;"[b]" 

260 PRINT INK 2; AT 12, o; ”[b]" 

270 NEXT o 
280 FOR o=7 TO 11 
290 PRINT INK 4; AT o,30;CHR$ 145 
300 NEXT o 
310 LET m(l) = 1 
320 LET m(2) = 1 

325 PRINT INK 3; AT 8,1; CHR$ 144 
330 PRINT INK 6; AT 10,1; CHR$ 144 
340 FOR 2=1 TO 2 
350 LET te=INT(RND*90)+10 
360 LET v=INT(RND*150)+50 

370 PRINT PAPER 4; INK 9; AT 1,0; "Velo:";v;" O.km/h" 

380 PRINT PAPER 6; INK 9; AT 18,1; "Tempo:"; te; "□ seg." 

390 PRINT INK 2*3; AT 20,0; "Qual a distância que voce acha 
que o carro percorrera" 

400 INPUT INK 2*3; "Quantos metros";gh 
410 LET ca=(v* te* 1000)/3600 
420 LET w=INT (5-ABS((ca-gh)/50)) 

430 FOR o=m(2) TO ra(2)+w 
440 PRINT AT 6+2*2,tn(2) " 

450 LET m(2)=m(2)+l 


460 PRINT INK 2*3; AT 6+2*2,m(2); CHR$ 144 

470 SOU ND .1,-12 

480 IF m(2)=30 THEN GOTO 520 

490 NEXT o 

500 NEXT 2 

510 GOTO 340 

520 SOUND .3,6: SOUND .6,12: PAUSE 150 
550 CLS 

560 PRINT PAPER 2*3;.. INK 9; AT 8,4;h$(l); "o campeão!:!" 
570 PRINT PAPER 4; INK 9; AT 14,9; "Quer jogar.de novo" 
530 LET a$=INKEY$ 

590 IF a$="" THEN GOTO 580 
600 IF á$="s" THEN GOTO 220 
610 GOTO 580 
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Voce foi desafiado a pular um certo numero 
de ônibus que sera aleatoriamente sorteado -pelo seu 
TK 90X COLOR COMPUTER. Para saltar voce deve pres- 
sionar qualquer tecla que - acionara o seu motor. A 
velocidade (em km/h) aparecera no alto da tela.Quan 
do voce alcançar a velocidade desejada largue o bo¬ 
tão, a sua moto saíra correndo com a finalidade de 

pular a quantidade de oriibus da tela, Se sua moto 

perder a rampa o seu TK 90X lhe dara a seguinte men 

sagem "Voce foi muito rápido e perdeu a rampa” e se 

voce for muito devagar o seu TK 90X escrevera na te 
la a mensagem "Voce foi muito devagar e chocou-se 
com o ônibus”. Para saber o que acontece quando vo¬ 
ce pula certo,so. jogando. Agora prepare sua super 
moto para pular sobre uma fila de ônibus que pode 
variar de um a dezoito. Tome cuidado,. Ei!!! Eu 
ja ia me esquecendo de dizer para usar o seu capace 
te prevenindo consequências piores em acidentes pe¬ 
rigosos , 



Toda vez 


tes ela deve 


que 

ser 


ap arece r 
escrita 


uma letra entre colche- 
em modo grafico. Para 


obter 


letra em modo grafico 


apertar 


CAPS SHIFT 9, a letra desejada, novamente 9. 

Esta ê a quarta vez que se destaca isto..* 


Agora comece a digitar o programa!!! 


S c uf/l 


10 FOR Z-l TO 

20 FOR y“0 TO 7 * 

30 READ s 


40 POKE USR a$+y,s 
50 NEXT y 
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7 4 


60 NEXT -Z 

70 DATA BIN 00000001, BIN 00000011, BIN 00000111, BIN 

00001111, BIN 00011111, BIN 00111111, BIN 01111111, BIN 
11111111 

80 DATA "m", BIN 10000000, BIN 11000000, BIN 11100000, BIN 
11110000, BIN 11111000, BIN 11111100, BIN 11111110, BIN 
11111111 

90 DATA "n”, BIN 00000000, BIN 00000000, BIN 00000100, BIN 
11101111, BIN 01011010, BIN 11111010, BIN 11100111, BIN 
01000010 

100 DATA "o", BIN 11111111, BIN 10001001, BIN 10001001, BIN 
11111111, BIN 10001001, BIN 10001001, BIN 11111111, BIN 
11111111 

110 DATA V', BIN 00000000, BIN 01100111, BIN 01011111, BIN 
00011010, BIN 00110000, BIN 01000000, BIN 11100000, BIN 
01000000 
120 RAND 

130 LET oni=INT (RND*17)+2 
140 BORDER 3: INK 1: PAPER 6 
150 GOSUB 560 
160 LET m=0 

170 PRINT AT 1,11; "0 Km/h" 

180 IF INKEY$=""THEN GOTO 180 
190 LET m=m+5+INT (RND*6) 

200 IF m >170 THEN LET m=170 
210 PRINT AT l,ll;m;"0 Km/h" 

220 IF INKEY$< >"" THEN GOTO ! 

230 LET km=m 
240 LET z=INT (RND*11) 

250 LET m=m+(z-5)-40 
260 LET j=9+INT(m/7.5+.5) 

280 IF m <-5 THEN LET j=6 
290 FOR n-1 TO 4 

300 PRINT AT 10,n-1;"□ AT 10,n; "[n]’ 


.90 



310 NEXT n 

320 PRINT AT 10,4; " AT 9,5; "[p]" 

330 SOUND .018,-20 

340 PRINT AT 9,5; " AT 8,6; "[p]" 

350 IF 3=6 THEN GOTO 400 
360 FOR n=7 TO J 

370 PRINT AT 8,n-l;"D"; AT 8,n;"[P]" 

380 SOUND .018,-20 
390 NEXT n 

400 PRINT AT 8, j;"0 "; AT 9,j+l; "[p]" 

410 SOUND .018,-20 
420 PRINT AT 9,j+l;" D"; AT 10, j+2; "[p]" 

430 IF j<>oni+7 THEN GOTO 670 
440 FOR n=j+3 TO 31 

450 PRINT AT 10,n-1;"O"; AT 10,n; ”[n]" 

460 SOUND .03,20 
470 NEXT n 

480 PRINT AT 10,31;"n” 

490 CLS 

500 PRINT AT 4,11; "BOM PULO"; AT 6,0;"Voce pulou os O"; oni; 
" O ônibus"’ 

530 PRINT AT 8,6; "Velocidade ded”; km; "□km/h" 

540 PAUSE 300 
550 RUN 
560 CLS 

580 PRINT AT 11,0;" ■■■■■■■■■■■■■■■■■■■■■■■■«■■*■■■■ 

590 PRINT AT 10,5; ”[l]" 

600 FOR n-7 TO oni+6 
610 PRINT AT 10,n; ”[o]" 

620 NEXT n 

630 PRINT AT 10,oni+7; "□□ CmJ" 

640 PRINT AT 10,0;"n" 

650 RETURN 





670 IF j< oni+7 THEN GOTO 710 

680 PRINT AT 4,1; "Voce foi muito rãpido e perdeu a rampa" 
690 FOR g=l TO 300 I o < 2 > 

695 NEXT g 
700 GOTO 150 

710 PRINT AT 6,0; "Voce foi muito devagar e chocou-se com o 
ônibus" 

720 FOR g=l TO 300- fOO 
725 NEXT.g 
730 GOTO 120 
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0. seu planeta acaba de ser atacado pelos 
Invasores Interplaneatãrios e voce foi a ünica pes¬ 
soa que escapou desse ataque, e para sobreviver vo¬ 
ce deve aterrissar em outro planeta. Mas a sua nave 
nao esta em boas condiçoes e alem disso o computa 
dor não demarcou o limite da tela. As teclas A e Z 
controlam a sua nave para.cima e para baixo e as le 
tras 0 e P controlam sua nave para os lados. 

A letra [r] tas linhas 10 a 90 deve ser escri¬ 
ta em modo grafico. 

1 LET x=l: LET <1=1: FLASH 0: CLS: PAPER 6: BORDER 1 
5 REM ATERRISSAGEM 
10 POKE USR ”[R]"+0, BIN 00011000 
20 POKE USR "'[R]"+l, BIN 00011000 
30 POKE USR "(X]" +2 > BIN 00111100 
40 POKE USR "[R] ,, +3, BIN 01111110 
50 POKE USR ,, [r]"+ 4, BIN 11111111 
60 POKE USR "JXr+5, BIN 11011011 
70 POKE USR ”[r]"+ 6, BIN 10011001 
30 POKE USR ”[R]"+7, BIN 11100111 
90 LET a$="[R]" 

95 FOR d=d TO 21 
100 LET k$=INKEY$ 

110 IF k$="o" THEN LET x=x-l 
120 IF k$="p" THEN LET x=x+l 
140 PRINT INK 2; AT d.x;a$; AT d-l,x;"an" 

143 IF x <1 THEN GOTO 7000 

145 PRINT AT d-l,x-l;"D" 

146 print iNK i; At 20,0;”iaiHiaauiainaaaiM«aMiaimM" 
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147 1F d=20 AND x=16 THEN GOTO 6000 

148 IF <1=20 AND x<> 16 THEN GOTO 7000 
150 IF k$="a" THEN GOTO 2010 

160 NEXT d 

2010 FOR d=d TO 1 STEP -1 
2020.IF k$="o" THEN LET x=x-l 
2025 LET k$=INKEY$ 

2030 IF x=30 THEN GOTO 7000 
2035 IF x=0 OR d=l THEN GOTO 7000 
2040 IF k$="p" THEN LET x=x+l 

2045 PRINT INK 3;AT d,x;a*;AT d+l,x-l;"nü";AT d+l,x+l;"0O' 
2050 IF k$="z" THEN GOTO 90 
5000 NEXT d 

6000 PRINT AT 1,12; INK 2; "Parabéns" 

6005 SOUND .6,-12: SOUND .7,-10 
6010 GOTO 7010 

7000 FLASH 1: PRINT AT 1,12; PAPER 1; INK 3; "Vocé bateu" 
7003 SOUND .7,-10: SOUND -5,11 
7005 LET k$=INKEY$ 

7010 PRINT AT 3,1; INK 3; PAPER 1; "Quer jogar de novo" 
7020 IF k$="s” THEN GOTO 1 
7030 GOTO 7005 
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0 seu TK 90X pode fazer coisas que voce 
nem imagina* Uma delas e se transformar num instru¬ 
mento musical perfeito. Sua capacidade de audio j a 
provou isso. 

Que tal voce exercitar um pouco a sua habi 
lidade musical? Neste programa, voce pode assumir 
o papel de um grande compositor e executar as mais 
belas musicas de sua autoria, sem precisar ser um 
gênio musical. Aguce seus ouvidos, quem sabe voce 
nao descobre sua vocaçao! 

CONTROLES: 

Teclas A , S , D , F , G , H, J 

S Nas linhas de 120 a 180, deve-se pressionar o 
grafico antes de teclar a* letra a, para se ob¬ 
ter.o caracter formado. 

10 LET x=0 
20 LET y=0 
30 FOR c*0 TO 7 
40 READ d 

50 POKE USR "a"+c,d 
60 NEXT c 
70 FOR f=0 TO 31 

80 Print AT 5,^"-"; AT 6,f;"-"; AT 7,f;”- M ; AT 
AT 9,AT 10,f;”~", AT 3,f; ,, - T ’; AT 4>f;"- M 
90 NEXT f 
100 LET t$=INKEY$ 

110 LET p=INT (RND*6+1) 

120 IF tí^a” THEN PRINT INK p; AT 10,y; OVER l;"a": LET x“l 
130 IF t$-"s M THEN PRINT INK p; AT 9,y; OVER 1; "a”: LET x*3 
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140 'IF t$="d" THEN PRINT INK p; 
150 IF t$="f" THEN PRINT INK p; 
160 IF t$= M £" THEN PRINT INK p; 
170 IF t$="h" THEN PRINT INK p; 
180 IF THEN PRINT INK p; 

190 IF t$="" THEN GOTO 100 
200 SOUND ,1,x 
210 LET y=y+l 


AT 

t r* 

>> 

co 

OVER 

i;. 

M a"; 

LET 

x=5 

AT 

7,y; 

OVER 

i; 

V: 

LET 

x-7 

AT 

6,y; 

OVER 

i; 

11 ir 

a : 

LET 

x=9 

AT 

5,y; 

OVER 

i; 

"a": 

LET 

x=ll 

AT 

4,y; 

OVER 

i; 

"a": 

LET 

x=13 


220 IF y >= 31 THEN RESTORE: GOTO 10 
230 GOTO 100 

240 DATA BIN 00011110, BIN 00010000, BIN 00001000, BIN 

00001100, BIN 00011110, BIN 00111111, BIN 00111111, BIN 

00011110 




TK9QX,omiciio 
cheio de programas. 


/WCRODIGrML 
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Disseram que voce ê bom de pontaria. Veja¬ 
mos. um teste no jogo de dardo* Voce comanda um dar^ 
do, que depois de ser lançado do canto superior es¬ 
querdo da tela pode mover^se para cima e oara baixo 
andando continuamente para frente. A letra F lança 
o seu dardo e a letra A move o seu dardo para cima 
e a letrà G move seu dardo para baixo* Ao acertar 
o alvo o computador lhe emitira um som* 

Toda vez que aparecer uma letra entre colche¬ 
tes significa que voce deve escreve-la em modo gra¬ 
fico. 

Esta e a quinta e ultima observação sobre o fato... 

Depois de jogar DARDO não pense que será 
tão fácil acertar ura alvo quando estiver jogando de 
verdade!!!! 

10 LET x=0: LET y=0: 1ET i=30: LET t=ll 
20 PAPER 2; INK 6} BORDER 1 
30 FOR w=l TO 2: READ a$ 

40 FOR g=0 TO 7 
50 READ r 

60 POKE USR a$+g,r 
70 NEXT g: NEXT w 

80 DATA "R", BIN 10000000, BIN 11000000, BIN 11100000, bIN 
00111111, BIN 00111111, BIN 11100000, BIN 11000000, BIN 
10000000 

90 DATA "Q", BIN 01111111, BIN 00111111, BIN 00011111, BIN 

00000011, BIN 00000011, BIN 00011111, BIN 00111111, BIN 
01111111 

100 PRINT AT t,i; "O [q] □ « 
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110 PRINT AT x,y; "□ [r]D" 

120 PRINT AT x-l,y; AT x+l,y;"o" 

130 IF INKEY|="f" THEN GOTO 150 
140 GOTO 110 

150 LET g=x: LET fc=y; FOR k=l TO 30 

160 IF INKEY$="a" THEN LET g=g~l 

170 PRINT AT g,k; "a[R] AT g,k-l;" O " 

180 PRINT AT g+l,R—l;"D AT g-l,k4.1;"Gn» 

190 IF g=t AND k=í THEN CLS: SOUND .018,5j PRINT AT 11,1; 

"Parabéns voce acertou!": GOTO 100 
200 IF INKEY$="g" THEN LET g=g+l 
210 IF g < = 0 THEN LET g=l 
220 IF g >= 21 THEN LET g=20 
230 NEXT k 

450 FOR q=0 TO 21: PRINT AT q,30;”G"; NEXT q 
460 FOR s=l TO 20: SOUND .0018,s: NEXT s 
470 RUN 






hraiüii^ 

■ 
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Para distrair-se, agora apresento um pro¬ 
grama de gráficos. A função deste programa ê preen¬ 
cher parte da tela em cores aleatórias e outra par¬ 
te com um padraó determinado, em alta resolução. As 
combinações possíveis sao as mais diversas, dando 
ao .olhar um espetáculo de cores. 

Os programas gráficos servem de exemplo pa 
ra um desenvolvimento próprio do programador, po¬ 
dendo você mesmo criar a partir de um programa,seus 
próprios desenhos. Espero que você aprecie bastante 


este programa. 

10 LET d=0 
20 LET k=5 
30 CLS 



40 LET s=2+INT(3*RND) 


50 LET o=INT(2*RND) 

60 FOR x=255 TO 0 STEP -s 

70 PLOT INK d;x,0; DRAW OVER 05 INK d;255-2*x,175 
80 NEXT x 


90 FOR y=0 TO 175 STEP s 

100 PLOT INK k;0,y: DRAW OVER o; INK k; 255,175-2*y 
110 NEXT y 


120 LET k=ÍNT(RND*7) 
125 LET d“INT(RND*7) 
130 PAUSE 50 
140 GOTO 30 




OUTRAS OBRAS DO AUTOR 


Caderno de Elementos de Computação (linguagem FORTRAN) 

Linguagem BASIC 

BASIC sem segredos 

TK-Divertindo 

TK-Lembrando 

TK-Calculando 

Conhecendo e Utilizando o TK-2000 
TK-2000 na Matematica 
De um APPLE à sua vida 
Imprimindo maravilhas com a GRAFIX 
Brincando com o TRS Color 
BASIC no TK 90X 


PRÓXIMOS LANÇAMENTOS 

Joços e Desenhos no TK 90X 
Gráficos no TK 90X 
TK-2000 nos Gráficos e na Musica 
TK-2000 nas Ciências Humanas 



Gráfica Editora Guteplan Ltda 
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